library(tidyverse)
library(sjlabelled)
gp_covid <-
read_csv2("./data/ZA5667_v1-1-0.csv") %>%
set_na(na = c(-99, -77, -33, 98))
age_cat variable that indicates younger people (values 0 to 9) and the elderly (value of 10).
case_when() function for that purpose. Consider using a tidyselect helper such as between()
gp_covid <-
gp_covid %>%
mutate(
elderly =
case_when(
between(age_cat, 0, 9) ~ "young folks",
age_cat == 10 ~ "elderly"
)
)
marstat variable.
& operator.
gp_covid <-
gp_covid %>%
mutate(
elderly_married =
case_when(
between(age_cat, 0, 9) & marstat == 1 ~ "young folks, unmarried",
between(age_cat, 0, 9) & marstat == 2 ~ "young folks, married",
age_cat == 10 & marstat == 1 ~ "elderly, unmarried",
age_cat == 10 & marstat == 2 ~ "elderly, married"
)
)